function [smoothy] = APEsmoothkinetic(datay)

% [smoothy] = APEsmoothkinetic(datay)
%   smoothes kinetic datay data

if nargin < 1
    help APEsmoothkinetic
    return
end

for i=1:length(datay(1,:))
    tempsmooth = smooth(datay(:,i));
    smoothy(:,i) = tempsmooth;
end